perm filename MATCH.LSP[F76,JMC]2 blob sn#525112 filedate 1980-07-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DEFUN MATCH (EXPR PATTERN)
C00003 ENDMK
CāŠ—;
(DEFUN MATCH (EXPR PATTERN)
(PROG (W)
(SETQ W (INST EXPR PATTERN NIL))
LLLL
(COND ((ATOM W) (RETURN W)))
(SET (CAAR W) (CDAR W))
(SETQ W (CDR W))
(GO LLLL)
))